home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / REVERSE.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-08-31  |  628 b   |  17 lines
  1. ' REVERSE.BAS
  2. ' This program reverses the order of the characters in a string.
  3.  
  4. CLS
  5.                                          ' get string from user
  6. INPUT "Enter a string of characters to be reversed:  ", inString$
  7. numOfChars% = LEN(inString$)             ' find length of string
  8.  
  9. FOR i% = numOfChars% TO 1 STEP -1        ' step backwards through string
  10.     tempChar$ = MID$(inString$, i%, 1)   ' extract one letter at a time
  11.     reverse$ = reverse$ + tempChar$      ' build new string
  12. NEXT i%
  13.  
  14. PRINT                                    ' display new string
  15. PRINT "The characters in reverse order are "; reverse$
  16.  
  17.